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MAIN = CNFSMAIN 
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FACILITY: DECnet Configurator Module (NICONFIG) 
i ABSTRACT: 
i This module contains the main entry for NICONFIG, which 
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provides the DECnet eee eit teer Module, as well as a 


few routines of general utility. 
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NICONFIG Listens to the system ID messages broadcast 
regularly by devices on e NI and maintains a data 
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base which can be queried. 
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eneretes messages in the NICE protocol which it passes to NML. 
ICONFIG is started by the network in fospense te . ‘, 


request for a logical Link connection owt’ ter — A... oer 


passes the NICE message, in tact, to NI 
i ENVIRONMENT: VAX/VMS Operating System 


NICONFIG requires the following privileges for proper execution: 
LOG_10, SYSNAM 
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XSBTTL ‘Definitions’ 


INCLUDE FILES: 


LIBRARY ‘SYSSLIBRARY:STARLET'; 
LIBRARY ‘SHRLIBS:NET'; 
REQUIRE ‘LIBS: CNFDEF.R32'; 


Network definitions 


LITERALS 


GLOBAL LITERAL 


1 
17 REQUIRE "SRC$:CNFPREFIX.REQ'; ' Collection of useful macros 
f ' and literals 
027 ' BUILTIN functions 
027 ! 
027 
027 BUILTIN 
027 INSQUE, !' INSQUE instruction 
0 4 REMQUE; ! REMQUE instruction 
$560 1! 
028 
028 
0 
0 
0 
0 


Maximum size of mailbox message 
Synchronous event flag number 
Asynchronous event flag number — 
Event flag number for startup timer 


i OWN STORAGE : 
GLOBAL 
CNFSGL_LOGMASK : BITVECTOR (32],! Logging control mask 


CNF$GQ_CIRSURLST : VECTOR [2], ! List of circuit under surveillance 


VMS common definitions 
CNF$GQ_IRBLSY : VECTOR (2), ' Listhead for incoming Links 
N ABXMS 


L DS 
INITIAL (ZCHARCOUNT ("0 00:03:00.00') 
UPLIT PSECT (SOWNS) (ZASCII '6 00:03:00.C0")), 


CNF$Q_B_STARTUP_WAIT : VECTOR C2,LONG], ! Time in binary converted from ASCII 


PORIPIPIPOPERSE NNN 2 9 OO SP ODOOOOOOCOO woowonoowovnono ot het ty tet ters 
a a OF 


. 
° 
+ 
o 
o 
. 
@ 
+ 
* 
e 
7 
. 
. 
° 
. 
° 
. 
o 
. 
* 
. 
* 
. 
o 
. 
oe 
a 
° 
. 
© 
. 
wo 
. 
° 
a 
° 
7 
2 
+ 
° 
. 
a 
e 
. 
° 
. 
eo 
7 
° 
o 
o 
co 
° 
. 
° 
° 
. 
. 
. 
° 
. 
° 
+ 
° 
. 
o 
. 
° 
- 
Y 
° 
° 
© 
e 
. 
° 
. 
° 
o 
a 
. 
° 
. 
e 
. 
e 
. 
© 
. 
° 
7 
° 
. 
° 
. 
° 
- 
° 
. 
° 
. 
° 
7 
o 
. 
° 
* 
a 
. 
° 


me td et td ts = = = = = — sd 1) - I 


99 
6 00 
4 CNFSA_) ; Rees message buffer 
; : VECTOR CCNFSC_MAXMBXMSG, BYTE 
CNFSW_NETCHAN : WORD, '’channe( opened to network 
4 CNFS$W_MBXCHAN : WORD ! Channel to mailbox 
5 CNF$B~ SURVEILLANCE _SET, ' Boolean: mark if surveillance has been set 
CNFSB_STARTING_UP; ! Boolean: mark if still starting up 
OWN 
CNFS$Q_A_STARTUP_WAIT : ! ASCII wait delta time (3 minutes) 
K C$C_S_BLNI 
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CNFSL_VM; ! Tally of virtual memory allocated 
! 


TABLE OF CONTENTS: 


FORWARD ROUTINE 


CNFSMAIN ! Main entr 

CHECK_PRIvS : NOVALUE, 

INIT_COG : NOVALUE, ' Initialize for debug n 

INIT NOVALUE, ! Initialize data structures 

DECLARE_OBJNAM : NOVALUE, ' Declare SNICONFIG to the Net 

SET_TIME_ BOMB =: NOVALUE, ' Set timer to verify a valid SET command was received 
TIME NOVALUE, ' Queue work item to abort if there are no surveillance requests 
TERMINATE_GRACE : NOVALUE, ! Terminate the grace period 

CNFS$T NOVALUE, ! Log messages to log file 

CNFSLOG_DATA : NOVALUE, ' Log messages to log file 

CNFSEXIT : NOVALUE; ! Clean up and exit 


; EXTERNAL REFERENCES: 


OONAOVUVES WN (“OOOO L WN OOOnNOou —-3 


EXTERNAL ROUTINE 
! Module CNFINTRPT 
CNFSSOLICIT_INTERRUPT =: NOVALUE, ! Solicit work items 


am ee ee ed ed wt = = = = = = = 2 4 = SS YY YS 


! Module CNFWORKQ 
WKQSADD_WORK_ITEM, ' Add work to the work queue 
WKQ$D0_QORK_TTEM; ! Perform work on work queue 
EXTERNAL ROUTINE 
LIBSASN_WTH_MBX ADDRESSING_MODE (GENERAL), 
Ll VT_HTB ADDRESSING_MODE (GENERAL), 
LIBSGET_VM : ADDRESSING_MODE (GENERAL), 
LIBSFREE_VM : ADDRESSING_MODE (GENERAL), 
LIBSPUT_OUTPUT : ADDRESSING_MODE (GENERAL); 
EXTERNAL LITERAL 
CNFS_GETVM ' Allocated !UL bytes of virtual memory, total of !UL 
CNFS_FAILFREVM, i Failed to deallocate 'UL bytes of virtual memory 
CNFS_FAILGETVM, ! Failed to allocate !UL bytes of virtual memory 
CNFS_FREEVM, ' Deallocated 'UL bytes of virtual memory leaving !UL 
CNFS$_LOGIC, : progres logic error, or unexpes ted condition 
CNFS$-LOGIO, i NICONFIG requires LOG_IO privilege 
CNFS_NETASN, ' Failed to declare name to networ 
CNFS_NETMBX, ! NICONFIG requires NETMBX privilege 
CNFS$_PRIV : Privilege error 
CNFS$~SYSNAM, i NICONFIG requires SYSNAM privilege 
CNF $_TMPMBX; ! NICONFIG requires TMPMBX privilege 


Seieeh rownss enenee aes I-HeeOMs QBG:6T Wate S4tathalt 28 roe 


0372 1 


z 
z 


se 


td a 


SSSLERFEUNLSSS VARA LS SHUTS ARAVISSSVRAR VLOGS ARO LOD 


v06 


41 


COON 


WP —OOONOULEw 


oo 


NOUS WN OOO 


i) a at 


OONO UE WOO 


Rorofnonononofororforn 


aPneront Cent (qureter Module 16-Sep-1984 950678? 


ain Entry 


ZSBTTL ‘CNFSMAIN Main Entry’ 
GLOBAL ROUTINE CNFSMAIN = 
' 


'e+ 
} FUNCTIONAL DESCRIPTION: 


p-1 


This is the main entry point for the Configurator Module. 
It celts the initialization routines and sits in a loop 
rforming work from the work queue. 
f after the termination of the stort qrece period, 
no work requests have specified that NICONFIG place one 
or more circuits under surveillance, it will quietly go 
away. 


i 
i 
i 
i 
i 
i 
i 
i 
! FORMAL PARAMETERS: 
’ NONE 

i 

! IMPLICIT INPUTS: 
NONE 

! IMPLICIT OUTPUTS: 
NONE 

i 
i 
i 
i 
i 
i 
i 
i 


i ROUTINE VALUE: 
i COMPLETION CODES: 
NONE 


i SIDE EFFECTS: 
NONE 


BEGIN 

CHECK_PRIVS (); ! Ensure that NICONFIG is executing with sufficient privilege 
INIT_LOG (); ! Initialize for debug logging 

INIT_DATA (); ! Initialize data structures 


DECLARE OBJNAM (); 


) 
CNF STRATE (DBGSC_TRACE, SDESCRIPTOR(' TRACE’), SDESCRIPTOR ("Object name declared')); 


i Issue a timer AST to wake up some in the future so that a check 
a check can be performed to ensure that useful work is being done, 


and a decision made whether cr not to terminate. 
SET_TIME_BOMB (); 


CNFSSOLICIT_INTERRUPT (); ! See if anyone wants to issue a Net connect 


1 

i $0 long as at least one circuit is under surveillance 
' or the startup grace period is in effect, 

process the work queue. 
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Be 93:25:87 


NR 


WNILE. § CFSE SURVEILLANCE SET OR .CNFSB_STARTING_UP) DO 


CNFSTRACE (DBGSC_TRACE, SDESCRIPTOR ("TRACE"), 


6E 


74 
20 


67 
6C¢ 
64 


3A 


HIBER; ' 2222 
CNESTRACE (DBGSC_TRACE, Svescripions 7 
WHILE WKQSDO_WORK_ITEM () DO 
END; 


2227 


22 
RACE® 


), SDESCRIPTOR (‘Wakeup to perform work items')); 


until some work comes in 


! Perform work until queue is empty 


SDESCRIPTOR T'Aborting --- No surveillance requested')); 


CNFSEXIT (SS$_NORMAL); 
RETURN SS$_NORMAL ; 
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30 20 00 
00000000 
00000000" 


Exit sucessfucly 


Added 


i MAIN ¢ 


WUUWONN = 
SOFINOR MOS SAS 
vw 
- 

- 
o 


P.AAK: 
P.AAJ: 
P.AAM: 


SESRAIA LOE 


P.AAL: 


00 P.AAA: 


“ADDRESS 
CNF$Q_B_STARTUP_WAIT: 
‘BLKB 78 


for completeness 
outine 


- TITLE 
IDENT \V04-000\ 
SPLITS,NOWRT ,NOEXE ,2 


\TRACE\ 

-—BLKB 3 

oh 5 

ADDRESS P.AAC 

ASCII \Object name declared\ 


»PSECT 


-LONG 20 
-ADDRESS P.AAE 
oe y \TRACE\ 


LONG 

«ADDRESS P.AAG 

eASCII \Wakeup to perform work items\ 
-LONG 28 

ADDRESS P.AAI 

ASCII \TRACE\ 

-BLKB 


e LONG 
eADDRESS P.AAK 
ASCII \Aborting --- No surveillance requested\ 


“LONG 38 

eADDRESS P.AAM 

-PSECT SOWNS,NOEXE,2 

ASCII \O 00:03:00.00\<0><0><0> 


CNFSQ_A_STARTUP_WAIT: 


P.AAA 
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706000 CNFSMAIN. Main Entry © 12-86-1382 9S:25:87 «= ACNE SkCSEnrmatncosor4 ~~ 
00020 CNFSL_VM: 
-BLKB 4 


-PSECT S$GLOBALS$,NOEXE,2 
00000 CNFSGL_LOGMASK:: 


LKB 4 ; 

00004 CNF$GQ ~CERSURLST; : : 
QO00C CNF$GQ ae ee 8 : 
00014 CNFSA_MBXMSG:: $ 
-BLKB 124 $ 

00090 CNFSW_ NETCHAN: : 3 
-—BLKB 2 3 

00092 CNFSW -MBXCHAN: : > : 


BLKB 
00094 CNFS$B etl Th SET:: 
00098 CNFSB_STARTING_UP:: 

-BLKB ~ 4 


CNF $C_MAXMBXMSG== jes 


*EXTRN WKQSADD _W 


IT 
EXTRN WKQS$DO mK ITE 
EXTRN UTBsA S$ H_MBX 
-EXTRN LIBSCVT— NTBS LIBSGET_VM 
EXTRN LIBSFREE a. Ligse UT" OUTPUT 
-EXTRN CNFS_GETOM PS raiceneye 
-EXTRN CNFS-FAILG CETON 
EXTRN CNFS$OL LOGIC. C Ne oGTo 
~EXTRN CNFS_N cnr NE TMBX 
-EXTRN CNFS$_P S$ 


NFS_SYSNAM 
-EXTRN CNFS “Pave NCYSSHIBER 
-PSECT S$CODE$,NOWRT,2 


000c 00000 .ENTRY CNFSMAIN, Save R2,R3 : 0374 

53 Q000v CF 9E 000¢ MOVAB  CNFS$TRA ce. R3 : 

52 0000' CF 9E 990 VAB OP R : 
0000v CF ; FB C CALLS #0, CHECK_PRIVS : 0407 
d00v CF FB got CALLS #0. INIT £06, : 0409 
O00v CF FB O16 CALLS #0. INIT > 0411 
O00v CF FB 0001 CALLS #0, SPeURRE vOBUNAM > 0413 
pp 6 SHL RR > 0414 

E4 Ad OF PUSHAB P.AAB ; 

DD PUSHL aj ; 

63 3 FB CALLS #3, CNFSTRACE : 
9000v CF 6 FB A CALLS 40. SET TIME BOMB > 0421 
006 cE F F CALLS #0. CNFSSOLICIT INTERRUPT > 04 ; 

5 9000" CF CE 1$ BLBS CNESB_SURVEILLARCE, SET, 2$ : 04 

if 00° cr E 9 BLBC CNFSB-STARTING_UP, ~4 ; 

000000006 0 0 FB E 28 CALLS #0, SYSSHIBER > 0431 
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05:51 ENICNF. SRCTENFRAIN- B32; 


& 
#3, CNFSTRACE 
#0, uk0800. WORK_ITEM 


P.AAL 

AJ 
#3, CNFSTRACE 
#1, CNFSEXIT 
#1, RO 
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1 ROUTINE CHECK 
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Check execution privileges’ 
RIVS : 


NOVALUE = 


iS Beo-198e 09:08:49 


AX-1 
NICN 
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This routine verifies that NICONFIG is executing with the rroper 


privileges. 
Signal those privileges which are Lacking. 


BEGIN 
LOCAL 
ABORT 
PRIVMASK : BBLOCK (8), 
STATUS; 
CHSFILL (0 itialize to zero 


PRIVMASK) 
SSETPRV tee uphy = PRIVMASK) ; i 


ABORT = FALSE; 
! 
Check for the required een 


IF (NOT .PRIVMASK CPRV$V_LOG 10 
NOT .PRIVMASK CPRVS$V_SYSRAM 
NOT .PRIVMASK CPRVSV_NETMBX oR 
NOT .PRIVMASK CPRVSV_TMPMBX)) 


BEGIN 
SIGNAL (CNF$_PRIV); 
ABORT = TRUE: 


IF NOT .PRIVMASK CPRVSY LOG_10] ! 
THEN SIGNAL vii F 
IF NOT .PRIVMASK TPRVSV SY SNAMI ! 
THEN SIGNAL vgs SYSNAM) ; 


IF NOT .PRI k CPRVSV NETMBX) 
THEN s1éhAt VRCAES“N NETMBR) ; 
IF VMASK CPRVS$V TAPMBX) ! 


.PRI 
THEN SIGNAL (CNF$_TMPMBR) ; 


Ha al THEN CNFSEXIT (SS$_NORMAL); 
E 


In 
! Obtain privileges set in CURPRV 


For reading system ID messages 

For declaring itself as a known object 
For declaring itself as a known object 
For declaring itself as a known object 


! No point in continuing 


ND; ! Routine Check_privs 
.EXTRN SYSS$SETPRV 
007C 00000 CHECK_PRIVS: 
-WORD Save R2,R3,R4,R5,R6 
56 000000006 9 2 MOV LIBSSIGNAL, R6 
E § SUBL2 #8, SP 
00 bE C C movcS #0, (SP), #0, #8, PRIVMASK 


<- 
or 
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CNFMAIN DECnet Ethernet Configurator Module 1b-3¢ -1984 02:49 AxX-11 Bliss- 
vo6-000 check privs Check execut on privileges 1 7300-1382 95:05:85 NICNF.SRCICN 
E 11 
E bo \¢ PUSHL SP 
— 7C 1 CLRO -(SP) 
7E 04 16 CLRL -(SP} 
000000006 00 9% fe 1 CALLS #4, SYSSSETPRV 
2 iF CLAL RT 
E TSTB PRIVMASK 
5 BGEQ 1 
OA 6E E BBC #2, PRIVMASK, 1$ 
05 02 AE 4 3 BBC #4, PRIVMASK4+2, 1$ 
01 AE 0 TSTB PRIVMASK+1 
cue BLSS 2 
00000000G 8F ODD 1$: PUSHL #CNFS$_PRIV 
66 1 =F 9 CALLS #1, LYBSSIGNAL 
1 pO 0003C MOVL 
oF 95 0003F 2$: TSTB = PRIVMASK 
19 004) BLSS 
000000006 8F DD 0004 PUSHL #CNF$_LOGIO 
66 1 FB 90469 CALLS #1, LIBSSIGNAL 
09 6E 2e 04C 3$: 5 #2, PRIVMASK, 4$ 
000000006 8F DD 9030 PUSHL #C YSNAM 
66 1 FB 0 26 CALLS #1, LTBSS IGNAL 
09 02 AE 4 € 059 4$: BS #4, PRIVMASK+2, 5$ 
000000006 8F DD O00SE PUSHL #CNFS$_NETMBX 
66 1 Fe 064 CALLS #1, LIBSSIGNAL 
01 AE 95 00067 5S: TSTB PRIVMASK+1 
09 19 0006A LSS 6 
000000006 8F DD O06¢ PUSHL #CNF$_TMPMBX 
66 9} FB 00 é CALLS #1, LIBSSIGNAL 
07 2 €9 00075 6$ LBC ABORT, 7$ 
4 DD 00078 PUSHL @# 
0000vV CF 1 FB OOO7A CALLS #1, CNFSEXIT 
04 OO07F 7$: ET 


; Routine Size: 128 bytes, Routine Base: S$CODE$ + 0070 


. 
2 
. 
. 
o 
. 
*. 
. 
. 
o 
o 
. 
. 
. 
a 
. 
° 
+ 
* 
. 
o 
7 
eo 
7 
o 
. 
Ld 
. 
o 
. 
* 
° 
° 
o 
o 
o 
e 
7 
e 
> 
* 
. 
o 
2 
° 
. 
* 
. 
o 
. 
° 
. 
a 
o 
° 
° 
° 
o 
o 
. 
aa 
~ 
7 
. 
° 
. 
o 
. 
. 
e 
. 
. 
. 
e 
7 
° 
. 
e 
° 
eo 
. 
e 
. 
* 
. 
o 
. 
° 
. 
o 
° 
7 
6 
7 
a 
. 
- 
. 
. 
. 
*° 
. 
° 
. 
eo 
. 
e 
. 
a 
7 
e 


12 

ECnet Ethernet Configurator Module Ib-3e -1 2:02:49 AX-11 Bliss-32 V4.0-74 Page a 

sient nittalice debug Logging 1 ~300 71382 95:08:83 ENICNF.. SRC CNFMAIN.B32; . (5) 

; 1 ZSBTTL ‘init_lo Initialize debug logging’ | : 
iH } ROUTINE INI “LO8 : NOVALUE = tyne. 
; ig 4 1 te : 
s 5) > 3 3 
; 316 £38 1! This routine initializes the internal Logging flags for NICONFIG ; 
3 519 497 1! debugging. The logical name NICONFIGSLOG is translated to obtain $ 
3 18 38 1! @ hex number which is converted to a bit mask used to control F 
: : ¢ ! : the type of information to be logged. : 
; 13 ; 1 1 { IMPLICIT INPUTS: ; 
; 2 § NICONFIGSLOG Logical name : 
i 3e5 205 1 | IMPLICIT OUTPUTS: ; 
: 325 507 1 Fill in CNFSGL_LOGMASK ; 
3 $ 508 1! i 
: 358 5 ; 
; ; O51) BEGIN ; 
: 331 0318 LITERAL : 
: § b2i8 RSLSIZE = 10 ! Size of the result buffer ; 
; 51 " ; 
3 5 $319 CAL 3 
3 3218 RSLBFR : VECTOR CRSLSIZE, BYTE), ! Buffer for the translation 3 
: 0820 RSLDSC : VECTOR (2) ! Descriptor for the buffer : 
; 521 : : 
; 05 § CNFSGL_LOGMASK = 0; ! Initialize the Logging mask F 
; 05 RSLOSC C0} = RSLSIZE; ! Setup the descriptor 3 
: b2 : RSLDSC C1J = RSLBFR; ‘ 
: 5 $ IF ' ! We must get a translation : 
: : ] STR, O6 ! Translate the name once ; 
; 0580 LOGNAM = ZASCID 'NICONFIGSLOG', § ! This is the logical name : 
; 0531 RSLLEN = RSLDSC (OJ, ! Place the Length here : 
3 ; § ? RSLBUF = RSLDSC ! Place the translation here : 
; 234 ) ; 
3 5 345 3 
3 5 SS$_NORMAL ' If a successful translation 3 
3 3 ' Then convert the result 3 
: : 3 LIGSCVT_HTe ! Convert hex to binary ; 
; 540 -RSLDSC £0}, ! Size of string ; 
; 541 -RSLOSC ! Address of string 3 
; 246 CNFSGL_LOGMASK ! Address of longword result : 
; 544 RETURN; F 
; 545 END; ! Routine Init_log : 


47 4F 


3; Routine Size: 


DECnet Ether 
init log Init 


60 bytes, 


4C 26 47 49 46 GE 4F 


5E 


04 AE 


000000006 69 


000900006 00 


Routine Base: 


Hf onfigurator 
al 


SCODES + OOFO 


dule 18-56 Sep-1984 9 AX-11 Bliss-32 V4.0-74 
ze debug logging 730071382 93: 96: 3} NICNF.SR RCIEN FMAIN WiB3004 
-PSECT SPLITS,NOWRT,NOEXE,2 
43 49 4€E AO P.AAO: Tr. LHI CONE LESLOG\ 
ah 34 45 af P.AAN: LONG 
0000000' 08 ONRESS. get 
~EXTRN SYSS$TRNLOG 
-PSECT S$CODES$,NOWRT,2 
0000 00000 INIT_LOG: 
-WORD Save gotatng 
10 C2 000 g SUBL2 #16 
0000" CF D4 000 CLRL eNesce. _LOGMASK 
A 0D 000 PUSHL #10 
08 AE E 000 VAB RSLBFR, RSLDSC+4 
7E 7C 0001 CLROQ (SP) 
7E 04 0001 CLRL -(SP) 
0c AE F 00014 PUSHAB RSLDSC 
10 AE 9F 00017 PUSHAB RSLDSC 
0000' F 9F QOOTA PUSHAB P.AAN 
6 F th; CALLS #6, SYSSTRNLOG 
i) 0 CMPL RO, #1 
11 12 00028 NEQ 
0000" CF 9F QOO02A PUSHAB Soften gh OGAASK 
88 AE DD 0002E PUSHL RSLDSC#4 
AE DD 00031 PUSHL ete 
03 FB sit CALLS #?, LIBSCVT_HTB 
04 00038 1$: ET 


Se Se Se Se Se Se Se Be Ge Se Se Se Se Se Se Se Se Se 


me: 


oh 


81 


SLSSSIEARAN 


; Routine Size: 


SN NRA AAA AA AAA MMIII 


WN "SO OONAUES WN“ OOONOUS 


= oPononononononononononononononononunyn 3 a 


PUP PUPP 


pm fofololojlolojl~) 


SeesteMceeh as tes'se tel ICREcH0Es 5:06:91 


ZSBITL “init dat 
ROUTINE INIT~ “pata : NOVALUE = 


ata structures -Sep-1 
Initialize data structures’ 


14 
4 


| This routine initializes the internal data structures. 
a” 

BEGIN 

i Initialize doubly Linked List heads 


List ef circuits 


NF$GQ_CIRSURLST £93 = CNFS$GQ_CIRSURLST £02: 
NFSGQ"CIRSURLST C1] = CNFSGQ-CIRSURLST (0); 


! 
! 
i 
CN 
CN 
‘ 
; List of Interrupt Request Blocks 


CNF$GQ_IRBLST £0} = CNF$GQ_IRBLST (0); 
CNF$GQ-IRBLST {1} = CNFSGQ-IRBLST (0); 


CNFSL_VM = 0; 
RETURA; 
END; ! Routine Init_data 


0004 00000 INIT_DATA: 
«WORD 


Save Re 

52 0000° CF 9€ 0000 MOVAB CNF$ 

62 62 9E 0000 MOVAB CNF$ 
04 A2 6 9E OOO0A MOVAB CNF$ 
08 As 08 A2 9E 0000 MOVAB ne see 
o 6UC A 08 A2 YE 0001 MOVAB CNFS$GQ- 

0000' CF 04 0001 CLRL CN 
04 0001C RET 


29 bytes, Routine Base: $CODE$ + 012C 


! For logging how much virtual memory has been allocated 


ST, R2 
URLST, CNFS$GQ_CIRSURLST 
URLST, CNFS$GQ" Payeeares 


F$GQ L 
ST, CNF $GQ_IRBLST+4 


Be Se Be Se Be Ge Be Ge Se Fe Be Se Ge Se Ge Se Se FH Se Ge FH Se Se FHSS Se Se BH Oe Se Ss Ge Se Se FHS Se Se Se Se FH Ss Se Os Ge St Se Se Se Se ee SH Se Se Oe Se ee 


snes 


94 
95 


408 


eee A ee ee 
Sowa eur DONO ULWN “OOOO SW O 


PRR RRP RRP RRP EEEEPRREPPEE PRP PREPEED 


, ae 
-o 


OWONO VUE WN"OWOWOno 


wr 


Ab Ab Ab Ab Ab Ab Ab Ab Ab hb ib dh dab dab db dhl 
BRP ANY AAR 0 Ott te ee OER, 
COnNOu 


DECnet Ethernet Configurator Module 18-5¢ $ep-1984 9 AX-11 iss- 4.0-74 
declare_objnam Declare ob ect nene to Network 4 138 95: 0§: 2} We ohedenemalncosor4 


-Sep- 
1 ZSBITL ‘declare_objnam boc lere object name to Network’ 


} ROUTINE DECLARE- _OBJNAM : NOVALUE = 
: hed 
: ; This routine declares its object name, SNICONFIG, to the Network 
1 jen 
1 
BEGIN 
LOCAL 
10SB : BBLOCK 8 e ' 10 status block 
NFB : BBLOCK e ' Network function block for DECLNAME 
NFB_DESC : VECTOR (2), ! Descriptor of NFB 
STATUS; 
OWN ! Object name is SNICONFIG 
OBJNAM_DESC : BBLOCK CDSCSC_S BLNJ 
INITIAL (ZCHARCOUNT™ (*SNICONFIG 
UPLIT PSECT (SOWNS) NeascHI "SNICONFIG')); 
STATUS = LIBSASN_WTH_MBX ( XASCID ' NET: . ! Assign channel to NETACP 
' mailbox MAXMSG, BUFQUO (ignored) 
CNF $W_NETCHAN i Channel to NETACP 
CNF SW “MBXCHANS ; i Channel to mailbox 
IF NOT .STATUS 
THEN 
BEGIN ! There was an error assigning the channel 
on (. STATUS); ! No point in continueing 
NFB wrese FCT] = NFBSC_DECLNAME; ' Set function to DECLARE NAME 
NFB 2,0] = 0; ! When declaring a name, must be zero 
NFB_DESC £0) = 5; ! Set up descriptor for NFB, size is 5 bytes 
NFB_DESC = nie: 
STATUS = $Q]0W ( FUNC = IO$_ACPCONTROL, ' Request object name declaration to network 
CHAN = .CNFSW_NETCH AN, ! Use assigned channe 
EFN = CNFSC SSYNCH. EFN, ! ppnchronsus Ev Event ate number 
10SB = 10SB; !' 10 status b 
Pl = NFB apes i Network Lierie bloc 
P2 = OBJNAM_DESC); i Object name being Patorel 
IF .STATUS 
' sucessful submission 
STATUS = .J0SB (0,0,16,0); ! pick up final status 
Oa iaa EQL SS$_BADPARAM ! If object already defined 
BEGIN 
CNFSTRAC (passe tT ogic oblem 
DESCRIPT ont HRACE® Vs soescR{ProR’ ( Object alreedy defined’) ); 
a cenet (SS$_NORMAL) ; ' Go" away quietly 


20 79 


64 


H 12 
DECnet Ethernet Configurator Module 16-Sep-1984 0 
declare_objnam Declare object name to Network 1o-ge0- 1382 98 %§ 
631 
§ If NOT .STATUS 
6 eg ! Signal an error 
5 SIGNAL (CNFS$_NETASN p. ~ STATUS); 
$ CNFSEXIT (CNFS$_NETASN) 
END; 
638 
639 RETURN; 
0 END; ! Routine Declare_ 
-PSECT 
00 00 00 3A 54 45 GE SF 90086 P.AAR: .ASCII 
010E0005 OBC P.AAQ: .LONG 
00900006: 8 0c -ADDRE 
45 43 41 4 OC4 P.AAT ASCII 
00C -BLKB 
00000005 OO0CC P.AAS: 
00000000* 0000 
61 65 72 6C 61 20 74 63 65 6A 62 4F 00004 P.AAV: .ASCII 
64 65 6€ 69 66 65 64 OQ00E3 
OOEA -BLKB 
00000016 OOQOEC P.AAU: .LONG 
00000000" O00FO 
-PSECT 
00 00 00 47 49 46 GE 4F 49 4E 24 00024 P.AAP: .ASCII 


00000009 00030 OBJNAM_DESC: 
00000000' 00034 
.EXTRN 
.PSECT 
001C 00000 DECLARE_OBJNAM: 
9€ 0000 
5 


000000006 53 
0 


08 AE 


o 
S 
So 
So 
on 
POY OUI sr | OO OO 


MAM POVOWNTAH NOO-F 


04 


objnam 


SPLITS,NOWRT,NOEXE,2 
\oNET 5 j\gereeoe> 


1769 
S P.A 


\TRACE\ 


- LONG 
-ADDRESS P.AAT 


\Object already defined\ 


2 
eADDRESS P.AAV 


SOWNS ,NOEXE ,2 
\SNI CONF 1G\<0><0><0> 


ADDRESS P.AAP 


SYS$Q10W 
SCODES ,NOWRT ,2 


ave 
rex 
NFS 


NF $W_MBX CHAN 
=(SP)- NETCHAN 


Sa 
CN 
r 
CN 
¢ 
ro LIBSASN_ WTH_MBX 
ATUS 
Tet 
AT 


a] 
"1 Te eauet 
ies 


Wee NFB ESC 
NFB, NFB. besc+4 
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v06-000 declare_objnam Declare Object name to Network 1 300-1 3s 95:08:83 NICNF. SRCICNFMAIN. B32; ° (7) 
7E 4 4 CLRQ (SP) ; 0618 
7E C & CLRQ (SP) : 
0000' CF OF 4 PUSHAB OBJNAM_DESC 3 
14 AE f 48 PUSHAB NFB_DESC é 
7E C 4B CLRQ =(SP) é 
30 oF 4 PUSHAB I0SB 3 
3 ge PUSHL #56 3 
7E 0000' F C MOVZWL CNFSW_NETCHAN, -(SP) : 
1 DD 000 PUSHL 3 
000000006 98 F 059 CALLS #12, SYS$QI10W 3 
i) rg MOVL RO, STATUS é 
04 ‘ 0 63 BLBC STATUS, 2$ : 9620 
2 10 AE ¢ MOVZWL 10SB, STATUS : 06 
14 5 D1 O6A 2$: CMPL TATUS, #2 3; 0624 
14 12 's¢4 BNEQ $ 
4 CF OF of PUSHAB P.AAU 3; 0628 
00° F 9F 000 3 PUSHAB P.AAS 3 
1 OO 8 7 PUSHL #1 3 0627 
0000vV CF 3 «FB 79 CALLS #3, CNFSTRACE : 
1 DD OOO7E PUSHL 3; 0629 
64 1 4 it CALLS #1, CNFSEXIT 3 
12 : E8 00083 3$: BLBS § STATUS, 4$ + 063 
DD it PUSHL STATUS 3; 063 
D4 0 CLRL -(SP) 3 
5 OD it PUSHL R $ 
000000006 00 2 FB 000: f CALLS #3, LIBSSIGNAL : 
DD 0009 PUSHL 3; 0636 
64 01 FB 00095 CALLS #1, CNFSEXIT : 
04 00098 4$: RET ; 0640 


3; Routine Size: 153 bytes, Routine Base: S$CODE$ + 0149 


nn 


SU UUUEEEIEEEReeenne nee nen 
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y06-000 Set_time_bomb tele for a set command before sta 1 ~Sep-1 38 95:2 at NICNF..SRCJCNFMAIN.B32; ° (8) 
> 46 1 ZSBITL "Set_time_bomb Wait for a set command before starting surveillance’ 
; ret ! ROUTINE SET_TIME_BOMB : NOVALUE = 
; 469 ag +4 
: 66 § 1! This routine issues a read to the mailbox and waits for a SET 
; 468 1 ! command from the initiator who pegen execution of NICONFIG. 
; 2 i ; : ; If no command is forthcoming, NICONFIG quietly goes away. 
: 471 0650 1 i-- 
; 47 0651 1 
; 47 6 ¢ BEGIN 
: 474 6 LOCAL 
: 475 654 STATUS; 
; 47 55 
3; 47 bees ! 
; 478 5 ; issue 8 wait and set an AST routine to go off. 
3; 679 0658 ! hat AST routine will queue a routine to the work queue that 
3 59 ! iti ond the al | ‘grace’ period. 
: 481 660 ! hen, if no surveillance requests have been received NICONFIG 
; 48 0661 ! will quietly ¢ disappear, otherwise it will remain until all 
: 48 b66¢ ! surveillance is turned off. This ‘grace’ pe eriod is to ovoid multiple 
3s 4 066 : false starts when someone does a show, realizes NICONFIG is not there 
; 485 bees and then issues a set to start it up. 
: 487 0666 
: “8 peer CNFSB_STARTING_UP = TRUE; 
: 4 P 0669 STATUS = SBINTIM ( TIMBUF = CNF$Q_A_STARTUP -WAlT ! Convert ascii time to binary time 
; 491 0670 MADR = CNFS$Q-B~ STARTUPEY j; 
3 3 9671 IF NOT .STATUS THEN SIGNAL (CNFS LOGIC, 0, status! ; 
5 494 P ee STATUS = SSETIMR ( . : Bad STARTUP_EFN ! Set the timer 
> 495 P 0674 DAY = CNESa B_STARTUP_WAIT, 
; 0675 AST AOR = TIME B); ! Routine to call when timer goes off 
; rhs pers IF NOT .STATUS THEN SIGNAL (CNFS. COGIC, 0, .STATUS); 
; 499 067 CNFSTRACE (DBG$C_TRACE, SDESCRIPTOR(* TRACE’), 
$ 300 pore SDESCRIPTOR ("Startup verification set')); 
: 308 681 RETURN; 
: 50 0682 END; ! Routine Set_time_bomb 


-PSECT S$PLITS,NOWRT,NOEXE ,2 


45 43 41 52 54 pore P.AAX: ‘BLK \TRACE\ 3 

8 . OOFC P.AAW: .LONG 3 

0 99" 4 ADDRESS P.AAX 3 

63 69 66 69 72 65 76 20 ” 75 74 72 61 74 104 P.AAZ: .ASCII \Startup verification set\ 3 
74 65 73 20 6E 6F 69 74 61 113 : 

4 SB pts P.AAY: .LONG 24 5 


-EXTRN SYSSBINTIM, SYSSSETIMR 


CNFMAIN DECnet Ethernet Configurator Module 
y04-000 Fong" > 


Set_time_bomb Wa 


t for a set command 


53 000000006 


0000" CF 


000000006 33 


64 


000000006 99 


64 


0000v CF 


; Routine Size: 101 bytes, 


Routine Base: 


0000" 


0000' 
0000" 


K 12 
before sta 12: 300-1 98e 98: 963 HH AycNr oR 


»PSECT 
001C 00000 sets ts 


COOoOOoooooooooo 


MAMMA & & EW 


2$: PUSHAB 


OOO HOMINID OO NOUVINMNVINOOOOWO 
WF FMW NINO FW HMA POM Hh MO 
ONOOOVOIIOMSI NTO OOI MVVIOMI"OOVTVVT Oo 
FOO WO SOU WOODS VBS OSO FOU WOU"™Oom 


COQOoCoooScoooooo 


SCODES + O1E2 


itn 


i 
C 


SCODES ,NOWRT ,2 


si HAL 
sorese STARTING uP 
s0-8- STARTUP Att 
i SYSSBINTIM ~ 
STATY 
STATUS, 
ATUS 
=(SP) 
Re pb IBSSIGNAL 


TIME BOMB 
CNFSO_B_STARTUP_WAIT 
#4, SYSSSETIMR 

RO, STA 


R 

#3, LIBSSIGNAL 
P.AAY 

P. AAW 

#1 

#3, CNFSTRACE 


Be Se Se Se Se Se Ge Ge Se Se Be Fe Be Se Be Be Se Se Se Se Ge Se Fe Fe Se Se Fe Se Se 


0675 


0676 


0679 
0678 


0682 


. 
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CNFMAIN DECnet Ethernet Configurator Module 18-56 p-1984 02:02:49 AX-11 Bliss-32 V4.0-74 
y0se000 +s bomb Check whether startup should be abor 1 ~8ep-1984 t 98: 96 2} NICNF.SR RCIEN NFMAIN.B32; 


3 5 3 4 ZSBTTL ‘time bomb Check whether startup should be aborted’ 

; 3 ¢ ! ROUTINE TIME_BOMB : NOVALUE = 

; 08 686 1} i+ 

H 6 1: 

; 510 6 8 1! Queue routine to the work queue that will end 

3 31) 1! startup ‘grace’ period. 

; \¢ 690 1! 

co 691 1 !<- 

>; 514 $38 1 

; 515 069 BEGIN 

; 1 94 CNFSTRACE (DBGSC_TRACE, SDESCRIPTOR (‘TRACE’), 

3 i 244 SDESCRIPTOR T'Time.bomb --- End of grace period')); 

3 23) +44 WKQSADD_WORK_ITEM (TERMINATE_GRACE); ! Terminate the startup period 
: $21 0699 RETURN TRUE; 

s dee 0700 1 END; ! Routine Time_bomb 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


45 43 41 52 54 60136 P.ABB: yt —" 
44 4 O913¢ C P.ABA: .LONG *. 
00000000" 001 -ADDRESS P.ABB 
45 20 2D 2D 2D 20 62 6D 6F 62 SF 65 6D 69 54 Bot P.ABD: ASCII \Time_bomb --- End of grace period\ 
72 65 70 20 65 63 61 72 67 20 66 6F 20 64 43 0143 
64 6F 6 Bol ae 
0015 -BLKB 
00000021 00158 P.ABC: .LONG 3 
00000000" 0015C ADDRESS P.ABD 
-PSECT S$CODE$,NOWRT,2 
0000 00000 TIME_BOMB: 
WORD peve nothing 
0000" CF 9F 00002 PUSHAB P.ABC 
0000° CF 9F 00006 PUSHAB a ABA 
01 DD OOOOA PUSHL 
0000v CF 03 FB Bees CALLS CNFSTRA ace 
0000v CF 9F 00011 PUSHAB FS, cues RACE 
0000G CF 01 FB 00015 CALLS He UROSABD _WORK_ITEM 
04 QOO1A RET 


; Routine Size: 27 bytes, Routine Base: S$CODE$ + 0247 


M12 
CNFMAIN DECnet Ethernet Configurator Module 16-Sep-1984 02:02:49 AX-11 Bliss-32 V4.0-742 P 1 
V6000 terminate_grace Check whether startup should b 122808-1 382 95:08:83 NICNF. SRCICNFMAIN.B32; 1 29 48) 


: 4 701 1 ZSBTTL ‘terminate grace Check whether startup should be aborted’ 

; 5 f ¢ ! ROUTINE TERMINATE GRACE : NOVALUE = 

: ; 704 1 44 

8 3 705 1! 

3 7 1! End startup ‘grace’ period. Now as soon as there are no longer any 

: : f i ; : circuits under surveillance, NICONFIG will quietly go away 

: é 709 1 ie : 
3 710 BEGIN ; 
4 711 CNFSTRACE (DBGSC_TRACE, SDESCRIPTOR ("TRACE'), : 
; 3 5 ie SDESCRIPTOR C'Terminate_grace --- End of grace period')); : 
; 338 ne CNFSB_STARTING_UP = FALSE; ! Startup ‘Grace’ period is over 3 
: §39 0716 RETURN TRUE; : 
; 540 0717 1 END; ! Routine Terminate_grace > 


-PSECT S$PLITS,NOWRT,NOEXE ,2 


45 43 41 52 54 00160 P.ABF: .ASCII \TRACE\ : 
00165 -BLKB 
00000005 00168 P.ABE: .LONG 3 
ser | ya? 3196 -ADDRESS P.ABF : 
65 63 61 72 67 SF 65 74 61 6E 69 6D 72 § 4 00170 P.ABH: .ASCII \Terminate_grace --- End of grace period\ =; 
61 72 67 20 66 6F 20 64 6€ 45 20 6p $p D 29 017F : 
64 6F 69 72 65 70 20 65 6 boleP : 
00000027 Opler N 
00000000" 0019C -ADDRESS P.ABH : 


-PSECT SCODES,NOWRT,2 


0000 00000 TERMINATE GRACE: 
-@ORD Save nothing : 0702 
0000" CF 9F 00002 PUSHAB P.ABG : 0712 
0000' CF 9F 00006 PUSHAB P.AB : 0711 
1 DD OO00A PUSHL #i : 
0000v CF 3 FB 0000C CALLS #3, CNFSTRACE ; 
0000" CF bs 90011 CLRL. CNF$B_STARTING_UP F 714 
4 00015 RET : 0717 


; Routine Size: 22 bytes, Routine Base: $CODES + 0262 


-BLKB 1 
P.ABG: .LONG 539 : 
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V04-000 CNFSTRACE Log logic trace message to the Log 12=808-1 388 95:08:83 NICNE. SROTENFRAIN: B3o2 . 1% 
4 ZSBTTL ‘CNFSTRACE bog logic trace wossege to the Log’ 
4 GLOBAL ROUTINE CNFSTRACE (LOGBITNUM, HEADDSC, TRACEDSC) : NOVALUE = 


lee 
FUNCTIONAL DESCRIPTION: 
Check the Losging control mask and if the corresponding bit is set 


$ 718 #1 

; 719 «1 

3 7 1 

3 721 +1 

> 94 7 § 1 

; 54 7 1! 

; 548 724 1! 

3; 549 725 1! then print the special message to the log file. The message 

: 20 4 $ : } has a header and the tracing text. 

3 5 f 8 : FORMAL PARAMETERS: 

3 534 {i ! Logbitnum —— of the logging bit to control the type of 
3 : oggin 

3 He 07 ¢ 1! headdsc Aadtess of a descriptor of the header text 

3 eee o? ? : } tracedsc Address of a descriptor of the trace information 
3 339 oF 5 1! IMPLICIT INPUTS: 

; 560 7 $ 1! 

; 561 07 1! CNF $GL_LOGCONTROL 

3 266 bree . 2 

; 56 0739 1 =! IMPLICIT OUTPUTS: 

> 564 0740 1! NONE 

; 565 0741 1! 

; 566 Bree 1 ! ROUTINE VALUE: 

s 367 074 1 ! COMPLETION CODES: 

; 568 0744 1! NONE 

: 569 0745 1! 

; 570 B78 1 ! SIDE EFFECTS: 

». ara 0747 1! NONE 

; ar¢ 0748 1! 

3; 37 0749 1 !-- 

3; 574 0750 BEGIN 

: 575 0751 BUILTIN ; 

3 278 O76 NULLPARAME TER; ! Check if parameter was passed to routine 
3; 5768 0754 HEADDSC : REF BBLOCK, 

; 579 0755 TRACEDSC : REF BBLOCK; 

; 580 8728 LITERAL 

: 28) oof aca = 256; ! The print buffer 

; 283 $785 FAOBUF : VECTOR CFAOSIZ, BYTE), ! Print buffer 

; 584 0760 FAOLST : VECTOR LONG), i List of args to SFAOL 

3 28? Ore OUTDSC : VECTOR C25; ' Descriptor of the output Line 
: 587 76 

: 38s O74 : See if this text should be logged, and if not then return 

; 2a 766 

: 91 76 IF NOT .CNFSGL_LOGMASK C.LOGBITNUM) 

3 238 768 

3 334 . ; RETURN; 

; 595 Ag SuTpse Ht} = peosih ! Initialize the output buffer dsc 
3 = ; 

; 399 77 FAOLST [0] = HEADDSC; : Header text 

; 598 0774 IF NULLPARAMETER (3) 
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DECnet Ethernet Configurator Module 1b-5¢ =1984 02:02:49 AX=11 Bliss-32 V4.0-74 
CHES TRACE Log logic trace message to the Log 1 736071 38e 95:08:83 NICNE. SROTENFAAIN. B30 

7 THEN 

f FAOLST C1] = 0 

7 FAOLST C1) = .TRACEDSC; ! Trace text dsc 

a FAOLST #3} = a; 

f wee, ! Write the header out 

7 CTRSTR = ZASCID *!/ 'AS !AS!/', 

784 OUTLEN = OUTDSC (OJ, 

785 TBUF = OUTDSC, 

f $ PRMLST = FAOLST 

7 oO 

7 § LIBSPUT_OUTPUT (OUTDSC); 

790 RETURN; 
0791 END; ! Routine CNFSTRACE 


-PSECT S$PLITS,NOWRT,NOEXE,2 


00 2F 21 53 41 21 20 20 53 41 21 20 20 2F si Seg P.ABJ: .ASCII \!/ !AS !AS!/\<0><0> 
010E000E Boies P.ABI: .LONG 17694734 
00000000' 00184 -ADDRESS P.ABJ 


~-EXTRN SYSSFAOL 
-PSECT S$CODES,NOWRT,2 


0000 00000 .ENTRY CNFSTRACE, Save nothing 
SE FED8 CE 9E 9000¢ MOVAB -296(SP), SP 
43 0000" CF 04 AC €1 0000 BBC LOGBITNUM, CNFSGL_LOGMASK, 4$ 
E 0100 8F 3C 0000 MOVZWL #256, OUTDSC 
04 AE 28 «=AE 9 0001 MOVAB  FAOBUF, OUTDSC+4 
08 A 08 AC 00 0001 MOVL § HEADDSC, FAOLST 
0 6¢ 91 00010 CMPBC«C AP), #3 
1F 002 BLSSU 
0c AC 05 00 TSTL 12CAP) 
05 1 90 BNE 
0c AE 04 00027 18 CLRL - FAOLST+4 
05 11 OO02A BRB 
Oc AE 0c AC DO 00 ¢ 33 MOVL TRACEDSC, FAOLST+4 
6 AE b4 $ CLRL —« FAOLST+ 
0 AE OF 00 PUSHAB FAOLST 
4 AE i 0037 PUSHAB OUTDSC 
08 AE 9F 0 A PUSHAB OUTDSC 
0000" CF 9F D PUSHAB P,ABI 
000000006 00 04 FB 00041 CALLS #4, SYSSFAOL 
i DD O48 PUSHL SP 
000000006 00 07 FB 0004A CALLS #1, LIBSPUT_OUTPUT 
04 00051 4$: ET 


; Routine Size: 82 bytes, Routine Base: S$CODE$ + 0278 


CN 


13 
CNFMAIN DECnet Ethernet Configurator Module 1b-5e 1984 02:02:49 AX-11 Bliss-32 V4.0-74 
v042009 CNFSLOG_DATA Print a bata Message to the Log 1 =300- 138% 95:08:89 NICNE. SROTENFAAYN. 63224 
H $} 138 1 ZSBTTL ‘CNFSLOG DATA Print a Data + ar 4 to the bog. 
; 3 7 ? : GLOBAL ROUTINE CAFSLOG_DATA (LOGBITNUM, HEADDSC, EXTRADSC, DATADSC) : NOVALUE = 
; 6 i3e 1 144 
3 . 1 £38 ! } FUNCTIONAL DESCRIPTION: 
: 6 ‘ £8 1 i Check the Logging control mask and if the corresponding bit is set 
> 624 7 1! then print the special message to the log file. The message 
; 625 00 1! has a header and optionally some extra text which explains the 
: 2 8 03 ! } logged message. 
: 6 1 | FORMAL PARAMETERS: 
3 © 4 1! 
; 630 805 1! Logbitnum Number of the logging bit to control the type of 
; ? 1 bape : : Logging 
; ? j D808 } headdsc Address of a descriptor of the header text 
: ? 5 Baio : extradsc Address of a descriptor of the extra text (optional) 
: 6 ttt 1/ datadsc Address of a descriptor of the data to be converted 
; 638 0813 1! and printed 
3 639 Bate 2 
3 oY oet2 : : IMPLICIT INPUTS: 
; 64g O81? CNF$GL_LOGCONTROL 
: 644 0819 1! IMPLICIT OUTPUTS: 
Pe aes, at cece 
> 647 0838 1 ' ROUTINE VALUE: 
; 648 bas 1 ! COMPLETION CODES: 
: 880 OaSs | | se 
: 651 0836 1 | SIDE EFFECTS: 
3 $26 0 1! NONE 
2 ee ee 
fe OB aaa 
: 657 OB3¢ HEADDSC : REF BBLOCK, 
; 658 Be EXTRADSC : REF BBLOCK, 
3; 659 0834 DATADSC : REF BBLOCK; 
3 ¢ 8 5 LITERAL 
3 1 § FAOSIZ = 256; ! The print buffer 
3 666 0 LOCAL 
; 66 8 FAOBUF : VECTOR faosiz. BYTE], ! Print buffer 
> 664 FAOLST : VECTOR 9 ‘ ' List ef args to $FAOL ‘ 
; 665 0 OUTDSC : VECTOR (2), ! Descriptor of the output line 
3 006 et BYTES, ' Counter for bytes written 
; 66 ¢§ CTR : SIGNED, ' A random counter 
3 o38 84 PTR, ' A random pointer 
; ra rm ITR_CNT; ' Temporary iteration count 
: 671 46 gi 
; 676 rt See if data should be logged, and if not then return 
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CNFMAIN DECnet Ethernet Configurator Module 16-Sep-1984 02:02:49 AX-11 Bliss-32 V4.0-742 Da 5 Ch 

706-000 CNFSLOG_DAT Print abata Message to the Log 12286871382 95:08:83 NICNF. SRCICNFMAIN.B32; 1 9 433 

: 674 4 

: of? he” -CNFSGL_LOGMASK (C.LOGBITNUM) 

; 67 RETURN; | 

3 ef ¢ gure et 9 - Paes tes ! Initialize the output buffer dsc | 

; 1 $ FAOLST [0] = .HEADDSC; ! Header text 

; ¢ ¢ FAOLST L1J = .DATADSC CDSC$W_LENGTH; ' Data length 

; ret 8 denen id 2j = ' Extra text dsc 

: 685 0 69 IF .EXTRADSC EQL 0 

3; © 6 TH 

3; 68 0 86 ZASCID °° 

5 oss 086 ELSE 

: 689 864 ~EXTRADSC 

; 690 865 

; $3) ; Bae shea !' Write the header out 

: 69 P 0868 CTRSTR = ZASCID ‘!/ '!AS (Length = !UL bytes)!/ !AS!/', 

; 694 P 944 OUTLEN = OUTDSC (OJ, 

; 695 P 4 0 TBUF = OUTDSC, 

3 o28 P 0871 PRMLST = FAOLST 

; 69 4 3 

3 o8 Bayi LIBSPUT_OUTPUT (OUTDSC); 

; $60 0875 CTR = .DATADSC [DSC$W_LENGTH); ' Size of message 

> 701 0876 PTR = .DATADSC CDSCSA_POINTER); ' Its address 

3 4 + 144 tee .CTR GTR O DO ! Process it all 

: 704 0879 OUTDSC fo} = FAOsiz; ! Set @ descriptor 

; 705 st} OUTDSC (1) = FAOBUF; 

: 706 8 1 ITR_CNT = MIN (.CTR, 20); ! Get byte count 

: 707 oe FAOCST (OJ = .ITR cnt: ' Add count parameter 

; 708 08 FAOLST C.ITR_CNT+T) = ITR_CNT; ! 

: 709 0884 FAOLST C(.ITR_CNT#+1)#21) = TITR CNT; 

: ah rH ? InCAy 10K FROM 1 TO .ITR_CNT 06 ! A few bytes at a time 

: at) Oba? 4 FAOLST C.IDX] = .(.PTR) <O, 8, O>: ! One for the hex 

: 71 0888 4 FAOLST C.IDX + .ITR_CNT#1] = .(.PTR) <0, 8, O>; | Decimal 

> 714 0889 4 FAOLST gn (. 1DX + .TTR_CNT)#1) = 1; ! One for character 

3 is Baas 4 FAOLST *(,IDX + .ITR_CNT)+1 + 1) = .PTR; T 

3 rig 891 4 PTR = .PTR + 1; ' Next one ME 

3; 71 $834 4 CTR = .CTR - 1; ' One less 

; 718 9 END; 

; 719 8 94 

; red . 95 $F AOL ! Saviour of bored programmers 

; 7 § P 3 CTRSTR = ZASCID *!#(4XB)!/!#(4UB)!/ 'M(GAF)!/°, | 

Tm P 4 TLEN = OUTDSC (0), 

: 726 P OUTBUF = OUTDSC, 

: 725 Pp PRMLST = FAOLST 

; $ 38) 3 

a § 

: f 3 ist L EeSPUT CurPut (OUTDSC); ! Write to SYSSOUTPUT | 

: 730 0905 END; ! CNFSLOG_DATA | 
| 
j 
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onfigurator Module 
nt a Data Message to the Log 


GMOS OSS tS“ 


=—Soo0 oOCoo 
Oo@oo £ae0co 
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rococo 
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OOLWNOMOOON 
—99 OW"F OWS TOOOOIT S$ 0- 9Owo 9 Owom owuwon 
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o 
f=] 
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pp Ange Mt iy ope! gt tat ay gl tt 4 a! ey eel 4 ot Poo 


WOWDS MWR Mh & HMM 


em ee ee ee le oe ee enw elo lolololololololo) 
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FSNLMONMN MD OOM O OUI SOU SWVOMNOSNVS 


NAINA A AOA AAAAAE BEE RWWA 3 2 OO 


So 


18: 


4$: 


1 
1 


Be 18:05:51 


-PSECT 


-BLKB 
+ LONG 
ADD 


. ESS 
ASCII 


-ASCII 
«LONG 


-ADDRES 


-ASCII 


- LONG 


AX=-11 Oi ieee 2 ee etd 
NICNF..SRCJCNFMAIN.B32; 


SPLITS ,NOWRT ,NOEXE,2 


9 7696720 

P.ABL 

\!/ 'AS (length = !UL bytes)!/ !AS!/- 
\<0> 


i 
17694758 


S P.AB 


N 
\!AC4XB)!/!A(4UB)!/ SA CGAF)!/\<0><0> 


17694750 


-ADDRESS P.ABP 


SCODES,NOWRT ,2 


CNFSLOG_DATA, Save R2,R3,R4,R5,R6,R7 
LIBSPUT OUTPUT, R7 
SYSSFAOL, R6 


-664 P 
LOGBITNUM, CNFSGL_LOGMASK, 1$ 


#256, OUTDSC 
FAOBUF, OUTDSC+4 
HEADDSC, FAOLST 
DATADSC, 
(R2), FAOLST+4 
EXTRADSC 
P.ABK, RO 


EXTRADSC, RO 
RO, EAOLST#8 


P. ABM 

#i, SYSSFAOL 

#1, LIBSPUT_OUTPUT 
CTR 


(RO) 


4(R25, PTR 
TR 


#256, OUTDSC 
FAOBUF, OUTDSC+4 
CTR, RO 

RO, #2 

5$ 


Pete Se Se Ge Ge Se Se Ge Ge Fe Ge Se Se Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Se Ge Ge Se Se Se Se Be Se 
oO 
co 
wi 
0 


- 


1 
t 1 

50 4 D 7¢ MOVL #20, RO ; 
D 7F S$: MOVL RO, ITR_CNT : 

08 A D MOVL TRCN CNT, FAOLST ; 088 

50 —" 5 pet i pt lle  Opaa 
10 AEG 52 D F MOVL  ITR_CNT> FAOLST+8CROJ : 

51 9 Dg 34 MOVL 4g IDX + 0885 

08 AE41 6 9A 00099 6$: MOVZBL (PTR), FAOLSTCIDX] + 0887 

50 51 gi ADDL3 ITR_CNT, IDX, R + 0888 
OC AE4O 65 9A 000A MOVZBL (PTR), FAOLST+4 RO] : 

24 8142 3 OA MOVAB (1DX X)4CITR_CNTI, R + 0889 
50 4 AB ASHL #1, R4, ROW : 
OC AE4O 1 p AF MOVL #1, FAOLST+4CROJ : 

50 54 1 B4 ASHL #1, R4, RO + 0890 
10 AE4O 5 44 0088 MOVAB (PTR)+, FAOLST+8(ROJ : 

3 7 0008D DECL CTR + 089 

52 1 D1 OOOBF 7S: CMPL 1px, ITR_CNT > 088 
D5 1B 000C2 BLEQU 6$ : 

08 AE OF goce PUSHAB FAOLST + 0901 
04 AE 9F 000C7 PUSHAB OUTDSC : 
8 AE OF OCA PUSHAB OUTDSC : 
0000' CF 9F 000CD PUSHAB P.ABO : 

- OF OB boop ha tee ? 0903 
67 1 FB 00006 CALLS #1, LIBSPUT_OUTPUT : 

A 11 00009 BRB 4$ : 0877 

04 000DB 8$: RET + 0905 


; Routine Size: 220 bytes, Routine Base: S$CODE$S + O2CA 
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CNFMAIN DECnet Etnernet Configurator Module 6-S 4 AX-11 Bliss-32 V4.0-74 
v06-000 CNFSLOG_DATA Print a°Data Message to the Log 4- 305-1382 93: 26:87 NICNF. BR cle NPRAIN: 83004 


13 
CNFMAIN DECnet Ethernet Configurator Module 18-se -1984 02:02:49 AX-11 Bliss-32 V4.0-74 
yose000 CNFSEXIT Clean up and exit ati aets 1 95 08a Mi cuE SROSENERALN b3eet 
Se ¢ 1 ZSBTTL ‘CNFSEXIT Clean up and exit' 
: 4 9 ! GLOBAL ROUTINE CNFSEXIT (STATUS) : NOVALUE = 
: 735 9 $ 1 144 
: g aiY : FUNCTIONAL DESCRIPTION: 
; f 3 318 } | Permit a graceful exit for SNICONFIG 
; 740 git | FORMAL PARAMETERS: 
: ee 3i§ : Status Code to exit with. 
; fad 38 { IMPLICIT INPUTS: 
; 746 0920 1! IMPLICIT OUTPUTS: 
et fyi” = 
; 049 3 5 | SIDE EFFECTS: 
: 751 0925 1! Terminate program execution 
3 ay; 09 § 1! 
oo Bey 
: 755 $9 9 BEGIN 
s 756 0930 CNFSTRACE (DBGSC_TRACE, SDESCRIPTOR(' TRACE’), 
: 757 0931 STRIPTOR ("SEXIT')); 
; 758 O38 SEXIT (CODE= .STATUS); 
; 759 093 END; ' Routine EXIT 


-PSECT SPLITS,NOWRT ,NOEXE,2 


45 43 41 52 54 00218 P.ABR: .ASCII \TRACE\ 
0021D *BLKB 
00000005 00 20 P.ABQ: . 
00000000" 00224 “ADDRESS P.ABR 
54 49 58 45 26 i : P.ABT: ASCII \SEXIT\ 
00000005 03 0 P.ABS: LONG 
00000000" 00 “ADDRESS P.ABT 
.EXTRN SYSS$EXIT 
.PSECT $CODE$,NOWRT,2 
0000 00000 ENTRY CNFSEXIT, Save nothing 
0000" CF 9F 00002 PUSHAB P.ABS 
0000" CF 9F 000 PUSHAB P.ABQ 
1 DD 0 A PUSHL #1 
FECT CF 3 FB C CALLS #3, CNFSTRACE 
04 aC dD 00011 PUSHL STAT 
000000006 00 01 FB 00014 CALLS #1, SYSSEXIT 
04 00018 RET 


3; Routine Size: 28 bytes, Routine Base: S$CODES + 03A6 


vo4-000 CNFSEXIT' "Clean up and exit ow ® it eo 19h 95:26:87 ENTCNE Sac SEnPhalw:oaes 4 Page .4§} 


net Ethernet Configurator Module 15-50 $ep-1984 02:02:49 AX-11 Bliss-32 V4.0-74 P 0 
SGET_ZVM Get serend virtual eonery 12-8 08-1 38 96: 06: 2} NICNF, SRCION Panini osoc4 eee 428 


761 1 ZSBTTL ‘CNFSGET_ZVM Get zeroed virtual memory’ $ 
106 5 ! GLOBAL ROUTINE CRFSGET_ZVM (SIZ_ADR, ADR) = ; 
764 5 1 144 : 
oe? 8 ! FUNCTIONAL DESCRIPTION: : 
reo 40 1 ' This routine allocates be Nay me. ae and zeros it. ; 
768 41 1: It provides a common point for reporting memory errors : 
6 "4 : and logging memory usage. : 
us FORMAL PARAMETERS: ; 
Bc$ : siz_adr Longword containing the number of bytes to allocate : 
Bee 1! adr Address of longword in which to return the starting ; 
Be0 : address of the allocated memory. : 
951 IMPLICIT INPUTS: : 
$988 1 CWE SGL LOGMASK Determine if memory usage should be logged ; 
B23e : CNFSL_OM Record a running tally of total memory allocated : 
0956 1! IMPLICIT OUTPUTS: : 
iia : 
0959 1 | ROUTINE VALUE: : 
0960 1 | COMPLETION CODES: 3 
$30) ' NONE : 
0963 1 | SIDE EFFECTS: F 
0964 1! NONE F 
0965 1! 3 
pee | I 
0968 BEGIN : 
0969 LOCAL 3 
0970 STATUS; : 
sr : 
097 STATUS = LIBSGET_VM (.SIZ_ADR, .ADR):; ! Get the memory : 
gare IF NOT .STATUS : 
97 BEGIN ; 
id 1 ag adel (CNFS_FAILGETVM, 1, ..SIZ_ADR, .STATUS); ! Signal the error : 
97 ; ; 
980 IF ede CDBGS$C_VM) ! If memory logging is enabled 3 
3 1 THEN ; 
09 5 -CNFSL_VM + ..SIZ_A ' Tally it, : 
> ; iy Ccnes _GETVA, 2, ..SIZ~A DR -CNFSL_VM);  ! and report it. : 
cer TLL (0, ..SIZ_ADR, ..ADR); ! Zero it 
988 RETURN TRUE; 
989 END; ! Routine CNFSGET_ZVM 


2 
3 


000000606 


000000006 
06 BC 00 


; Routine Size: 85 bytes, 


Routine Base: 


DEfnet Ethernet Configurator Module 
CNFSGET_ZVM Get zeroed virtual memory 


7 04 
0 
14 
04 
000000006 
00 
CF 
CF 4 
0086" 
4 
000000006 
00 
50 08 
6E 
50 


SCODES 


SOAKOWDOWDOD OWOOCwsoWuvmo YS 
[OOM LMM MOML RN OOONO 
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vw NIN oe 
F2SSE5S34 SS RoNNoSenS 


he 


Sep- 
step 


—o 
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oT 


2$: 


1986 98: 


:0 
:4 


49 VAX=11 BLigs=32 v4.0-74 
31 ENTCNF. SRCSENFRAIN- 8321 


Cte tine vm. Save R2,R3,R4,R5 
iitleseet. vA 
stir 


5T 

asiZ_ ADR 

ACNE S FAILGETVM 

#2 heey LOGMASK, 2$ 
asiz_ADR, CNFSL_ 

as Se vM 

° @S1Z_ADR 


#CNFS_GETVM 
ef LIB$SIGNAL 


70. (SP), #0, @SIZ_ADR, 
#1, RO 


(RO) 


Page 31 
’ (14) 
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net Ethernet Configurator Module 16-Sep-1984 02:02:49 AX-11 Bliss-32 V4.0-74 P 
SFREE_VM Free virtual memory. 12-8081 382 95:08:83 NICNE. SROTENFRAIN: B3o0 age 13 


ZSBTTL  ‘CNFSFREE ya Free virtual memory' 
GLOBAL ROUTINE CNFSFREE_VM (SIZ_ADR, ADR) = 


'e¢ 
! FUNCTIONAL DESCRIPTION: 
This Foye ine deallocates virtual memory. 
It provides a common point for reporting memory errors 
and logging memory usage. 
FORMAL PARAMETERS: 


siz_adr Longword containing the number of bytes to deallocate 


EC 
NF 


SxeSsss 


33 


adr Address of longword in containing the starting 
address of the allocated memory. 


S 


3S 


PROPRORO WIL RONOPIPU WIN WIA POPINNDDD Ft tt es 
@ 
m 
(3) 
i 
= 


IMPLICIT INPUTS: 
CNFSGL 
CNFSL_ 


S 


LOGMASK Determine if memory usage should be logged 
| Record a running tally of total memory allocated 


0 
IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
COMPLETION CODES: 
NONE 

SIDE EFFECTS: 
NONE 


MMPMNMPINININ) 2 9 3 3 SO 


STATUS; 
STATUS = LIBSFREE_VM (.SIZ_ADR, .ADR); ! Deallocate it 
IF NOT .STATUS 


SOWONAOULSWN (CO ODNOUS WN OOM 


! Report any errors 


WA. ALAA 


BEGIN 
SIGNAL (CNFS_FAILFREVM, 1, ..SIZ_ADR, .STATUS); 
_ a . 

RETURN .STATUS; 

END; 


De a ee ee oe ie www wi wlolololalololololololo) 
UWewn— 


ee es CDBGS$C_VM) ! If memory logging is enabied 


BEGIN 
CNFSL_VM = .CNFSL_VM = ..SIZ_ADR; ' Update tally 
SIGNAL (CNF$_FREEQM, 2, ..SIZ_ADR, .CNFSL_VM); ! and report it. 
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On WN OOM 


RRLRLLE 


RETURN TRUE; 
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CNFMAIN DECnet Ethernet Configurator Module 1b-se =1984 02:02:49 AX-11 Bliss-32 V4.0-74 Page 33 
706-000 CNFSFREE_VM Free virtual memory 12-Sep-19 4 95:08:85 NICNE. SROTENFAAIN: B3oe% 9 «33 
; 875 1047 1 END; ! Routine CNFSFREE_VM 
000¢ 000 ENTRY CNFSFREE_VM, gave R2,R3 : 0991 
53 000000006 00 i 99 VAB LIBSSIGNAL, R : 
04 AC 7D 0000 MOVO  SIZ_ADR, <(SP) ; 1030 
000000006 Q FB 00000 CALLS #2, LIBSFREE_VM : 
BO 00014 MOVL RO, STATUS : 
1 E 0017 BLBS STATUS, 1$ + 1031 
DD OOO1A PUSHL STATUS + 1034 
04 BC DD 0001C PUSHL a@SI1Z_ADR : 
1 DD 0001F PUSHL #1 : 
a: 000000006 8F DD 000 1 PUSHL #CNF$_FAILFREVM : 
63 04 FB 00027 CALLS #4, LIBSSIGNAL ; 
08 8 D4 00 A CLRL b + 1035 
50 DO 0002D MOVL STATUS, RO + 1036 
04 00030 RET : 
18 0000" CF 02 £1 00031 1$: BBC #2, CNFSGL_LOGMASK, 2$ + 1039 
0000" ¢ 04 BC C2 0037 SUBL2 @SiZ_ADR, CNFSL_VM : 1048 
0000° CF DD 0003D PUSHL CNFSC_VM + 104 
04 BC ODD 90041 PUSHL @SI2Z_ADR F 
02 DD 00044 PUSHL @# ; 
000000006 8F DD 00046 PUSHL #CNF$_FREEVM : 
63 04 FB 0004C CALLS #4, LIBSSIGNAL : 
50 01 DO 0004F 2s: MOVL #1. RO + 1046 
04 00052 RET : 1047 


; Routine Size: 83 bytes, Routine Base: $CODE$S + 0417 
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1130 code + 780 data bytes 
: me: 00:22.8 

; Elapsed Time: OD ste 

f Lone Lexenes/CPU-Min: 20225 


nenecy ¥ Used: 130 pages 
; Compilation Complete 


CNFMAIN DECnet Ethernet Configurator Module $ep-1984 02:02:49 AX-11 Bliss-32 V4.0-74 Page 34 C 
v04-000 CNFSFREE_VM Free virtual memory 16-$ep-1984 95:08:83 NICNE. SROTENFAAIN- O32044 7 (16) Vv 
; 877 104 'End of module CNFMAIN : 
: 878 18 § 0 ELUDOM ‘ 

.EXTRN LIBSSIGNAL, LIBSSTOP ; 
: PSECT SUMMARY ; 
; Name Bytes Attributes : 
3 $GLOBALS 156 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) : 
; SOWNS 56 NOVEC, WR RD OEMS - NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) + 
; SPLITS 39 NOVECNOWRT, RD ,NOEX XE «NO LCL, REL, CON,NOPIC,ALIGN(2) F 
; SCODES 11 NOVEC,NOWRT, RD, *NOSHR: LCL, REL, CON,NOPIC,ALIGN(2) ; 
: « S « NOVEC ,NOWRT, “NORD *NOEXE -NOSHR LCL, ABS, CON,NOPIC,ALIGN(O) : 
; Library Statistics ; 
pele ee er eee Syabe(g sconces Pages Processing ; 
3 File Total Loaded Percent Mapped Time : 
_ $255$DUAZB: CSYSLIBISTARLET 132; 1 9776 21 0 581 00:01.1 ; 
: _$255$0UA28: CSHRLIBINET.L32;1 1279 2 0 63 00:00.9 : 
: COMMAND QUALIFIERS 3 
: BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:CNFMAIN/OBJ=OBJ$:CNFMAIN MSRC$:CNFMAIN/UPDATE=(ENHS: CNFMAIN) 2 
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